home *** CD-ROM | disk | FTP | other *** search
/ Inside Mac Games Volume 1 / Inside Mac Games Volume 1.iso / Shareware / Arcade / RoboWar / More Robots / Lewis Girod / Lewis Girod
Encoding:
Text File  |  1990-04-21  |  2.0 KB  |  128 lines  |  [RobW/RWAR]
  1. # Lewis Girod
  2. #
  3. # Written 4/7/90 by David Harris
  4. #
  5. # This robot seeks the edge, then moves
  6. # back and forth.  Somewhat like InvisBot.
  7.  
  8. Initialize:
  9.     180 aim' store
  10.     -5 speedx' store
  11.     90 shield' store
  12.  
  13. SeekLeftWall:
  14.     energy shield + shield' store
  15.     x 20 < FoundLeftWall if
  16.     collision HandleCollisionLeft if
  17.     SeekLeftWall jump
  18.  
  19. HandleCollisionLeft:
  20.     range KillLeft RotateLeft ife
  21.     collision not Exit if
  22.     HandleCollisionLeft jump
  23.  
  24. RotateLeft:
  25.     aim 50 + aim' store
  26.     return
  27.  
  28. KillLeft:
  29.     range 35 < RealKillLeft RotateLeft ife
  30.     return
  31.  
  32. RealKillLeft:
  33.     0 shield' store
  34.     energy missile' store
  35.     50 missile' store
  36.     return
  37.  
  38. Exit:
  39.     drop
  40.     return
  41.  
  42. FoundLeftWall:
  43.     0 speedx' store
  44.     90 aim' store
  45.  
  46. DownTransition:
  47.     drop
  48.     5 speedy' store
  49.  
  50. Down:
  51.     y 280 > UpTransition if
  52.     range ShootTarget if
  53.     collision DownCollision if
  54.     energy 100 = UseEnergy if
  55.     Down jump
  56.     
  57. UpTransition:
  58.     drop
  59.     -5 speedy' store
  60.     
  61. Up:
  62.     y 20 < DownTransition if
  63.     range ShootTarget if
  64.     collision UpCollision if
  65.     energy 100 = UseEnergy if
  66.     Up jump
  67.  
  68. ShootTarget:
  69.     energy 50 > ReallyShootTarget if
  70.     return
  71.  
  72. ReallyShootTarget:
  73.     energy missile' store
  74.     energy missile' store
  75.     25 missile' store
  76.     return
  77.  
  78. UseEnergy:
  79.     50 missile' store
  80.     return
  81.  
  82. DownCollision:
  83.     190 aim' store
  84.  
  85. MainDownCollision:
  86.     range KillDown RotateDown ife
  87.     collision not ExitCollisionVert if
  88.     MainDownCollision jump
  89.  
  90. RotateDown:
  91.     aim 50 - aim' store
  92.     return
  93.  
  94. KillDown:
  95.     range 35 < RealKillDown RotateDown ife
  96.     return
  97.  
  98. RealKillDown:
  99.     energy missile' store
  100.     50 missile' store
  101.     return
  102.  
  103. ExitCollisionVert:
  104.     drop
  105.     90 aim' store
  106.     return
  107.  
  108. UpCollision:
  109.     350 aim' store
  110.  
  111. MainUpCollision:
  112.     range KillUp RotateUp ife
  113.     collision not ExitCollisionVert if
  114.     MainUpCollision jump
  115.  
  116. RotateUp:
  117.     aim 50 + aim' store
  118.     return
  119.  
  120. KillUp:
  121.     range 35 < RealKillUp RotateUp ife
  122.     return
  123.  
  124. RealKillUp:
  125.     energy missile' store
  126.     50 missile' store
  127.     return
  128.